﻿Public Class ucNgay
    Private _Ngay As Date
    Public Property Ngay() As Date
        Get
            Return _Ngay
        End Get
        Set(ByVal value As Date)
            _Ngay = value
        End Set
    End Property
    Sub New()
        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        _Ngay = Date.Now
    End Sub
    Private Sub ucNgay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strDay As String = DateString
        lbNgay.Text = strDay
    End Sub
End Class
